(widget-choose): Make sure pop-up window is large enough to display all

the choices, as there's no way to scroll it.

diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index 6b5c1fbd99fa0661997ae3f47713952372fd5d43..eb402a95eae3efda3142dbae54c238383d6c136a 100644 (file)
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -254,7 +254,7 @@ minibuffer."
           ;; that corresponds to it.
           (save-window-excursion
             (let ((buf (get-buffer " widget-choose")))
-              (display-buffer buf)
+              (fit-window-to-buffer (display-buffer buf))
               (let ((cursor-in-echo-area t)
                     keys
                     (char 0)